(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 10.4' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     32991,       1077]
NotebookOptionsPosition[     24524,        807]
NotebookOutlinePosition[     29307,        944]
CellTagsIndexPosition[     29155,        937]
WindowTitle->FeynCalc2FORM
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[GridBox[{
   {Cell["FEYN CALC SYMBOL", "PacletNameCell"], Cell[TextData[{
     Cell[BoxData[
      ActionMenuBox[
       FrameBox[
        InterpretationBox[Cell[TextData[{
          "See Also",
          StyleBox[" \[FilledDownTriangle]", "AnchorBarArrow",
           StripOnInput->False]
         }]],
         TextCell[
          Row[{"See Also", 
            Style[" \[FilledDownTriangle]", "AnchorBarArrow"]}]]],
        StripOnInput->False], {"\<\"FORM2FeynCalc\"\>":>
       Documentation`HelpLookup["paclet:FeynCalc/ref/FORM2FeynCalc"]},
       Appearance->None,
       MenuAppearance->Automatic,
       MenuStyle->"SeeAlso"]],
      LineSpacing->{1.4, 0}],
     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
\[ThickSpace]",
     Cell[BoxData[
      ActionMenuBox[
       FrameBox[
        InterpretationBox[Cell[TextData[{
          "URL",
          StyleBox[" \[FilledDownTriangle]", "AnchorBarArrow",
           StripOnInput->False]
         }]],
         TextCell[
          Row[{"URL", 
            Style[" \[FilledDownTriangle]", "AnchorBarArrow"]}]]],
        StripOnInput->False], {"\<\"FeynCalc/ref/FeynCalc2FORM\"\>":>
       None, "\<\"Copy Wolfram Documentation Center URL\"\>":>
       Module[{DocumentationSearch`Private`nb$}, 
        DocumentationSearch`Private`nb$ = NotebookPut[
           Notebook[{
             Cell["FeynCalc/ref/FeynCalc2FORM"]}, Visible -> False]]; 
        SelectionMove[DocumentationSearch`Private`nb$, All, Notebook]; 
        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
        NotebookClose[DocumentationSearch`Private`nb$]; Null], 
       Delimiter, "\<\"Copy web URL\"\>":>
       Module[{DocumentationSearch`Private`nb$}, 
        DocumentationSearch`Private`nb$ = NotebookPut[
           Notebook[{
             Cell[
              BoxData[
               MakeBoxes[
                Hyperlink[
                "http://reference.wolfram.com/language/FeynCalc/ref/\
FeynCalc2FORM.html"], StandardForm]], "Input", TextClipboardType -> 
              "PlainText"]}, Visible -> False]]; 
        SelectionMove[DocumentationSearch`Private`nb$, All, Notebook]; 
        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
        NotebookClose[DocumentationSearch`Private`nb$]; 
        Null], "\<\"Go to web URL\"\>":>FrontEndExecute[{
         NotebookLocate[{
           URL[
            StringJoin[
             If[
              TrueQ[DocumentationBuild`Make`Private`wsmlinkQ$134452], 
              "http://reference.wolfram.com/system-modeler/", 
              "http://reference.wolfram.com/language/"], 
             "FeynCalc/ref/FeynCalc2FORM", ".html"]], None}]}]},
       Appearance->None,
       MenuAppearance->Automatic,
       MenuStyle->"URLMenu"]],
      LineSpacing->{1.4, 0}]
    }], "AnchorBar"]}
  }]], "AnchorBarGrid",
 GridBoxOptions->{GridBoxItemSize->{"Columns" -> {
     Scaled[0.65], {
      Scaled[0.34]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
   "RowsIndexed" -> {}}},
 CellID->1],

Cell[TextData[{
 Cell["FeynCalc2FORM", "ObjectName"],
 Cell[BoxData[
  InterpretationBox[
   StyleBox[
    GraphicsBox[{},
     BaselinePosition->Baseline,
     ImageSize->{8, 0}],
    CacheGraphics->False],
   Spacer[8]]]],
 Cell[BoxData[""], "ObjectNameTranslation"]
}], "ObjectNameGrid"],

Cell[CellGroupData[{

Cell[BoxData[GridBox[{
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{"FeynCalc2FORM", "[", "exp", "]"}]], "InlineFormula"],
     " \[LineSeparator]displays ",
     Cell[BoxData["exp"], "InlineFormula"],
     " in FORM syntax."
    }]]},
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{"FeynCalc2FORM", "[", 
       RowBox[{"file", ",", "x"}], "]"}]], "InlineFormula"],
     " \[LineSeparator]writes ",
     Cell[BoxData["x"], "InlineFormula"],
     " in FORM syntax to a file."
    }]]},
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{"FeynCalc2FORM", "[", 
       RowBox[{"file", ",", 
        RowBox[{"x", "\[Equal]", "y"}]}], "]"}]], "InlineFormula"],
     " \[LineSeparator]writes ",
     Cell[BoxData[
      RowBox[{"x", "=", "y"}]], "InlineFormula"],
     " to a file in FORM syntax."
    }]]}
  }]], "Usage",
 GridBoxOptions->{
 GridBoxBackground->{
  "Columns" -> {{None}}, "ColumnsIndexed" -> {}, 
   "Rows" -> {None, None, {None}}, "RowsIndexed" -> {}}},
 CellID->2010081510],

Cell[CellGroupData[{

Cell[TextData[Cell[BoxData[
 ButtonBox[Cell[TextData[{
   Cell[BoxData[
    InterpretationBox[
     StyleBox[
      GraphicsBox[{},
       BaselinePosition->Baseline,
       ImageSize->{6, 0}],
      CacheGraphics->False],
     Spacer[6]]]],
   "Details"
  }], "NotesFrameText"],
  Appearance->{Automatic, None},
  BaseStyle->None,
  ButtonFunction:>(FrontEndExecute[{
     FrontEnd`SelectionMove[
      FrontEnd`SelectedNotebook[], All, ButtonCell], 
     FrontEndToken["OpenCloseGroup"], 
     FrontEnd`SelectionMove[
      FrontEnd`SelectedNotebook[], After, CellContents]}]& ),
  Evaluator->None,
  Method->"Preemptive"]]]], "NotesSection",
 WholeCellGroupOpener->True,
 CellGroupingRules->{"SectionGrouping", 50},
 CellID->771017043],

Cell["", "SectionHeaderSpacer"],

Cell["\<\
The capabilities of this function are very limited, so that you should not \
expect it to easily handle large and compicated expressions.\
\>", "Notes"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Options", "[", "FeynCalc2FORM", "]"}]], "Input",
 CellTags->"FeynCalc2FORM",
 CellLabel->"In[135]:=",
 CellID->1031702605],

Cell[BoxData[
 FormBox[
  RowBox[{"{", 
   RowBox[{
    RowBox[{"EpsDiscard", "\[Rule]", "False"}], ",", 
    RowBox[{"FCVerbose", "\[Rule]", "False"}], ",", 
    RowBox[{"FinalSubstitutions", "\[Rule]", 
     RowBox[{"{", "}"}]}], ",", 
    RowBox[{"FORMAbbreviations", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"\<\"syFC\"\>", ",", "\<\"vFC\"\>"}], "}"}]}], ",", 
    RowBox[{"FORMEpilog", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"\<\"print;\"\>", ",", "\<\".end\"\>"}], "}"}]}], ",", 
    RowBox[{"FORMIdStatements", "\[Rule]", "True"}], ",", 
    RowBox[{"FORMProlog", "\[Rule]", "\<\"write statistics;\"\>"}], ",", 
    RowBox[{"Replace", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"\<\"\\\\[Alpha]\"\>", "\[Rule]", "\<\"al\"\>"}], ",", 
       RowBox[{"\<\"\\\\[Beta]\"\>", "\[Rule]", "\<\"be\"\>"}], ",", 
       RowBox[{"\<\"\\\\[Gamma]\"\>", "\[Rule]", "\<\"ga\"\>"}], ",", 
       RowBox[{"\<\"\\\\[Delta]\"\>", "\[Rule]", "\<\"de\"\>"}], ",", 
       RowBox[{"\<\"\\\\[Mu]\"\>", "\[Rule]", "\<\"mu\"\>"}], ",", 
       RowBox[{"\<\"\\\\[Nu]\"\>", "\[Rule]", "\<\"nu\"\>"}], ",", 
       RowBox[{"\<\"\\\\[Rho]\"\>", "\[Rule]", "\<\"ro\"\>"}], ",", 
       RowBox[{"\<\"\\\\[Sigma]\"\>", "\[Rule]", "\<\"si\"\>"}]}], "}"}]}], 
    ",", 
    RowBox[{"TraceDimension", "\[Rule]", "4"}]}], "}"}], 
  TraditionalForm]], "Output",
 ImageSize->{492, 92},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellTags->"FeynCalc2FORM",
 CellLabel->"Out[135]="]
}, Open  ]]
}, Closed]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  InterpretationBox[
   StyleBox[
    GraphicsBox[{},
     BaselinePosition->Baseline,
     ImageSize->{6, 0}],
    CacheGraphics->False],
   Spacer[6]]]],
 "Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(4)", "ExampleCount"]
}], "PrimaryExamplesSection",
 WholeCellGroupOpener->True,
 CellTags->"PrimaryExamplesSection",
 CellID->389305769],

Cell[CellGroupData[{

Cell[TextData[{
 "Basic Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(4)", "ExampleCount"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CellID->210065479],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"MT", "[", 
   RowBox[{"\[Mu]", ",", "\[Nu]"}], "]"}], 
  RowBox[{"FV", "[", 
   RowBox[{"p", ",", "\[Rho]"}], "]"}], " ", 
  RowBox[{
   RowBox[{"y", "^", "2"}], "/", "d"}]}]], "Input",
 CellTags->"FeynCalc2FORM",
 CellLabel->"In[1]:=",
 CellID->1451127405],

Cell[BoxData[
 FormBox[
  FractionBox[
   RowBox[{
    SuperscriptBox["y", "2"], " ", 
    FormBox[
     SuperscriptBox[
      FormBox[
       OverscriptBox[
        FormBox["p",
         TraditionalForm], "_"],
       TraditionalForm], 
      FormBox[
       FormBox["\[Rho]",
        TraditionalForm],
       TraditionalForm]],
     TraditionalForm], " ", 
    FormBox[
     SuperscriptBox[
      OverscriptBox["g", "_"], 
      RowBox[{
       FormBox[
        FormBox["\[Mu]",
         TraditionalForm],
        TraditionalForm], 
       FormBox[
        FormBox["\[Nu]",
         TraditionalForm],
        TraditionalForm]}]],
     TraditionalForm]}], "d"], TraditionalForm]], "Output",
 ImageSize->{90, 38},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellTags->"FeynCalc2FORM",
 CellLabel->"Out[1]="]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"FeynCalc2FORM", "[", "%", "]"}], ";"}]], "Input",
 CellTags->"FeynCalc2FORM",
 CellLabel->"In[2]:=",
 CellID->208321779],

Cell["(y^2*d_(mu,nu)*p(ro))/d", "Print",
 CellTags->"FeynCalc2FORM",
 CellLabel->"During evaluation of In[121]:="]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{" ", 
  RowBox[{"LC", "[", 
   RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Delta]", ",", "\[Rho]"}], 
   "]"}]}]], "Input",
 CellTags->"FeynCalc2FORM",
 CellLabel->"In[3]:=",
 CellID->14977898],

Cell[BoxData[
 FormBox[
  SuperscriptBox[
   OverscriptBox["\[Epsilon]", "_"], 
   RowBox[{
    FormBox[
     FormBox["\[Alpha]",
      TraditionalForm],
     TraditionalForm], 
    FormBox[
     FormBox["\[Beta]",
      TraditionalForm],
     TraditionalForm], 
    FormBox[
     FormBox["\[Delta]",
      TraditionalForm],
     TraditionalForm], 
    FormBox[
     FormBox["\[Rho]",
      TraditionalForm],
     TraditionalForm]}]], TraditionalForm]], "Output",
 ImageSize->{53, 16},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellTags->"FeynCalc2FORM",
 CellLabel->"Out[3]="]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"FeynCalc2FORM", "[", "%", "]"}], ";"}]], "Input",
 CellTags->"FeynCalc2FORM",
 CellLabel->"In[4]:=",
 CellID->1598383483],

Cell["(-i_)*e_(al,be,de,ro)", "Print",
 CellTags->"FeynCalc2FORM",
 CellLabel->"During evaluation of In[123]:="]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell["\t", "ExampleDelimiter"],
  $Line = 0; Null]], "ExampleDelimiter"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DiracTrace", "[", 
  RowBox[{"GA", "[", 
   RowBox[{"\[Mu]", ",", "\[Nu]", ",", "\[Rho]", ",", "\[Sigma]"}], "]"}], 
  "]"}]], "Input",
 CellTags->"FeynCalc2FORM",
 CellLabel->"In[1]:=",
 CellID->1937829856],

Cell[BoxData[
 FormBox[
  RowBox[{"tr", "(", 
   FormBox[
    RowBox[{
     FormBox[
      SuperscriptBox[
       OverscriptBox["\[Gamma]", "_"], 
       FormBox[
        FormBox["\[Mu]",
         TraditionalForm],
        TraditionalForm]],
      TraditionalForm], ".", 
     FormBox[
      SuperscriptBox[
       OverscriptBox["\[Gamma]", "_"], 
       FormBox[
        FormBox["\[Nu]",
         TraditionalForm],
        TraditionalForm]],
      TraditionalForm], ".", 
     FormBox[
      SuperscriptBox[
       OverscriptBox["\[Gamma]", "_"], 
       FormBox[
        FormBox["\[Rho]",
         TraditionalForm],
        TraditionalForm]],
      TraditionalForm], ".", 
     FormBox[
      SuperscriptBox[
       OverscriptBox["\[Gamma]", "_"], 
       FormBox[
        FormBox["\[Sigma]",
         TraditionalForm],
        TraditionalForm]],
      TraditionalForm]}],
    TraditionalForm], ")"}], TraditionalForm]], "Output",
 ImageSize->{123, 19},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellTags->"FeynCalc2FORM",
 CellLabel->"Out[1]="]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"FeynCalc2FORM", "[", "%", "]"}], ";"}]], "Input",
 CellTags->"FeynCalc2FORM",
 CellLabel->"In[2]:=",
 CellID->1415350890],

Cell["g_(0,mu)*g_(0,nu)*g_(0,ro)*g_(0,si)", "Print",
 CellTags->"FeynCalc2FORM",
 CellLabel->"During evaluation of In[117]:="]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"DiracTrace", "[", 
   RowBox[{"GA", "[", 
    RowBox[{"\[Mu]", ",", "\[Nu]"}], "]"}], "]"}], 
  RowBox[{"DiracTrace", "[", 
   RowBox[{"GA", "[", 
    RowBox[{"\[Mu]", ",", "\[Rho]"}], "]"}], "]"}]}]], "Input",
 CellTags->"FeynCalc2FORM",
 CellLabel->"In[3]:=",
 CellID->2088847593],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"tr", "(", 
    FormBox[
     RowBox[{
      FormBox[
       SuperscriptBox[
        OverscriptBox["\[Gamma]", "_"], 
        FormBox[
         FormBox["\[Mu]",
          TraditionalForm],
         TraditionalForm]],
       TraditionalForm], ".", 
      FormBox[
       SuperscriptBox[
        OverscriptBox["\[Gamma]", "_"], 
        FormBox[
         FormBox["\[Nu]",
          TraditionalForm],
         TraditionalForm]],
       TraditionalForm]}],
     TraditionalForm], ")"}], " ", 
   RowBox[{"tr", "(", 
    FormBox[
     RowBox[{
      FormBox[
       SuperscriptBox[
        OverscriptBox["\[Gamma]", "_"], 
        FormBox[
         FormBox["\[Mu]",
          TraditionalForm],
         TraditionalForm]],
       TraditionalForm], ".", 
      FormBox[
       SuperscriptBox[
        OverscriptBox["\[Gamma]", "_"], 
        FormBox[
         FormBox["\[Rho]",
          TraditionalForm],
         TraditionalForm]],
       TraditionalForm]}],
     TraditionalForm], ")"}]}], TraditionalForm]], "Output",
 ImageSize->{144, 19},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellTags->"FeynCalc2FORM",
 CellLabel->"Out[3]="]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"FeynCalc2FORM", "[", "%", "]"}], ";"}]], "Input",
 CellTags->"FeynCalc2FORM",
 CellLabel->"In[4]:=",
 CellID->1981124799],

Cell["g_(0,mu)*g_(0,nu)*g_(1,mu)*g_(1,ro)", "Print",
 CellTags->"FeynCalc2FORM",
 CellLabel->"During evaluation of In[119]:="]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell["\t", "ExampleDelimiter"],
  $Line = 0; Null]], "ExampleDelimiter"],

Cell[BoxData[
 RowBox[{
  RowBox[{"FeynCalc2FORM", "[", 
   RowBox[{"\"\<fc2ftest.f\>\"", ",", 
    RowBox[{
     RowBox[{"MT", "[", 
      RowBox[{"\[Mu]", ",", "\[Nu]"}], "]"}], 
     RowBox[{"FV", "[", 
      RowBox[{"p", ",", "\[Mu]"}], "]"}]}]}], "]"}], ";"}]], "Input",
 CellTags->"FeynCalc2FORM",
 CellLabel->"In[1]:=",
 CellID->118791271],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ReadList", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{"$OperatingSystem", "===", "\"\<MacOS\>\""}], ",", "\"\<:\>\"", 
      ",", "\"\<\>\""}], "]"}], "<>", "\"\<fc2ftest.f\>\""}], ",", "String"}],
   "]"}]], "Input",
 CellTags->"FeynCalc2FORM",
 CellLabel->"In[2]:=",
 CellID->2027596058],

Cell[BoxData[
 FormBox[
  RowBox[{"{", "\<\"d_(mu,nu)*p(mu)\"\>", "}"}], TraditionalForm]], "Output",
 ImageSize->{133, 16},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellTags->"FeynCalc2FORM",
 CellLabel->"Out[2]="]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell["\t", "ExampleDelimiter"],
  $Line = 0; Null]], "ExampleDelimiter"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"t", "=", 
  RowBox[{"DiracSimplify", "[", 
   RowBox[{"DiracTrace", "[", 
    RowBox[{
     RowBox[{"GA", "[", 
      RowBox[{"\[Mu]", ",", "\[Nu]", ",", "\[Rho]", ",", "\[Sigma]"}], "]"}], 
     ".", 
     RowBox[{"GS", "[", 
      RowBox[{"p", ",", "q"}], "]"}]}], "]"}], "]"}]}]], "Input",
 CellTags->"FeynCalc2FORM",
 CellLabel->"In[1]:=",
 CellID->730601730],

Cell[BoxData[
 GraphicsBox[
  TagBox[RasterBox[CompressedData["
1:eJztnQlwFFUagHHX2rVcq+QoS1zMrmCAABuulJCYjRCIIIiLBFyBzbpLBLIY
iFRAwCA3iBCRQ1A5K0BAkGM5lFtAWBACAgtyE0ICOYDcCcxMJjO9M+mwQtLd
0z39+u//zfxflZYHNe/l+990JzMDX+PY96OH/qpOnTqjnnD9LXrQ2MjExEEf
9q3r+pe3EkYNi0sYMrhHwughcUMSQ2N/7fqPPVx/nXmsTh33Pws84XCavQM0
kAr80IyQ4wMDqrhzaHaP8EkXLML9n8e+8uaufJ1fkj0rpW/s4WJBKD+d8Mo7
R0v079BRem790m/27EmdNGj6sZKHt+e03Ni9Ys32HSmj29ev/0Kz5s2Doz6+
bNG/IiNYqmA9Jn6tKuzcC8Bm5C9WYa8n2K1KUnwoptvC65a87bFT00p16nHm
7+zb8+ucSsF6eXpo1IY8h97NOQq/j39jYbpNEKyXpnceeLT0l6WKD4/qs/Ca
zT2T5V177dR9CWIMaxUsx8SvVfmdewPUjPzKKtj1BNqqPXdj/3Yxx/UdOUGw
XPy418RjJ1alnNVrx3UXOvlet5mXrUJl9urOoTOvWPU+nuP25p4RyVddSoV7
ZxKjks7d////Kvw+OnziBffNzHZ1TtQ/ftSr4QGMrDJXwXBM/FpV2Lk3QM3I
r6yCXU+MsiqNPWfT4D8/E9Bf//X2/JTImAlrruk7ulW47kJhr+7Id9rSF0e2
/PvxUt3f3pYefbtpWGp2pcv8f6fFLHLfy6px5G3oEjbLfUas174cMPlUmd6l
RJhZZa6C4Zj4tSq/c2+AmpF/WYW6nhhkVZqKWxvHz/suuX2gku2x8uTm5j74
VaUn4v+VmlWhvJ6qh6rM+ToyqFOXmJFTkuf2Dun96daM+7J3OFUPaLk4KbhR
x16TVm7bsiblQN4je7TnbBzWZ1zKt9tSV+y9pfs7ExF2VpmrYDgmfq0q7Vz7
o8HNSLPVytvb40akKV5HsVqFu54YYVWaiqz1SUsulWR8EaJou7LoWMoH/SKj
xn02Nf71VvUbBMduyrVrX60aR9m5jXPnLFuzdvns+L/275dwpKjG6XTm7+rX
dVGGB9MPYbv53dzkpamL4po9+Ztnuw2ftirj0de67ZlLIkI/1Xm7VQ9Dq1pV
eHSrAd+1qmnn8MeVIZW3Vr3aa3+R/C9Aa1UDnnxqHpAnPFqV2eeN1KTlVy1C
xQ0PtgVnwe7Xfh84ct/dSsFx99s3nqnbcV2udz80OQoPjunyly+vuW8jFdfn
t30+atudGo/k1hM2RvVrP87StA86dFqSWSFYL01u8ezL62vtrCLj87C2Y35m
8HOJGlha1aZChVvV+LJVDTs347iyxMOVAa9V1Xj2qXFAKvDqemtNX5m08nrV
l+zRdvHhtxu3nFD1krJQfiqu8fN9fij2aqdlJxOCmg//qbxq19mrXw6IWJdb
6dUjPcA1/dcC2lTdVstOxLaKWJbl/XfeithzNsR271SDnsOPFD9yYzbFqghL
t2S1Cl6P6y9Ww4LqNWgT7rtWwQ6qoNaqDNYryZ3bBLepomXAk7+t27R15Ptn
yiV/bVla7IvNR56tukNYLk4Objb4P6rWqEX5yUF/bBR9pOrTb47bmyMDOiy/
qdOP/ebylxqGuDQ77u4a1m/m6TJTPyJjilURpm7Jqhv+j6vSd2I+YdWUg+rl
6wkPsGct69BU4e5270xCsyaD0tzv29mz1w2MGLEr38vbUcHuTvXqRqxxv4Np
vbI4olG7+df1vqriKDu/Lum90Z+v37plf/o9RJ9HhLMqwtQtWXXD/3FVeWXg
16opB9XY663lwviWDTv8LXHGvAXJU5IWHLjj/S3enrfl3eB6T7/46tDJsz/q
+NyfZlzW+da1I3/XP1sENPjd44+5eLxu+1HGfppDC3BWq9dj55asVi/G/XFl
c71Fa9Wkg6rzequM7eonrV+IPqDj/UMpSo7GNGkxVue7LRW5Oz+ZtilTHJfT
Xnhi3rhjBllgjTFWRXS6Jau18evjitUqrz4VqchY2P4P3Xcw/j1uZSeGBjaN
P31Pz2NU5m3qHhi1pfqdTUfZ1X1b92Yz+qin0RhjVUSfW7IqgV8fV6RWufUp
j9Ny8/CKdxs/1bD34sM5Vka+nfczf/zmo/B6TwVNPFik5xVLZ/m55DdbNAxo
261/3LhZSzb/VGDcW5MsMcRq9UPrd0tWazyuXx9XxFa59EkQBEEQBEEQBEEQ
BEEQBEEQj+ADSQtCPTTuhyEbyPGJAUEmcrTBacEEMI7jBfwWTIzYG2gUiekc
WcHYKnzAC6VVeQATOV7AacEEJo7jDagKJlowZG+QUSS2c2SEEVZBA15gVrF2
YWDiHcgLJjBxHG8wpWDCwqohewOMIjGeo4DXKmTAi71VafB2YUDiHdgLJiBx
HG8wo2DCxKohe4OMIrGdI2arkAEv1lalQdyFAYp34O7CAMVxtD+aCQUTVla1
7Y2FDe0PqDB31XNUB2KrkAEvLVYx1HaYd2G0xVwACyYewdkwYusTvmBiilUR
VMEdtpEjzFY1oPu4arKKoLbDvAujJeYCWzDxANKGEVuf4AUTM6yKIAvuMI0c
obaqGgbHVZtVfmo7IowjJtAFE3RdGC59iuDuwgicBncQn1URLoM7/NV2RFhH
TBClYXyiYYSuYOJDZ1XAc1x9xSq8T25qOyKsIyY40zD8NowwF0x4P6sCyuPK
tVV4n9zUdqrXYxoxwZqG4bVhhLtgwvdZFZAeV46tmuGTw9qOiP6ICa/FDawN
I159iuA+qwKnehFb5dKnIni7MALHxQ2kDSNufYqgPqsCr3rxWuXTpzy4uzAC
p8UNxA0jLn2KoD+rAo96cVvlzydBEARBEARBEARBEARBEARB4ILToAan2ya8
hiZuEJyLNaSfAtZ/YV6uYQfbShF09ARho4TprM1J8yC0KsJuY9BiEV8BJDCk
UQLYfxHYxjsYwjTUAh09QVl+EdjN2pw0D1arDDdmiligKwDWmgZk/0VgG+8Q
kFaKgKMnOMsvArtZm5LmQWuV4cZMEcv4CiAN3poGYP/FDcN4B9ZKEXT0BGX5
xQ2jWZuT5kFrld3GzBHL9AogDeKaBmj/RVAZ71AH2koRbPSEcaMEYaXIjDQP
0p4O2yesKc0jtVcADD0drfDef1EAc6VIM1DlF5w9HXifbMsvHmFoVdPGEIpV
D4KejjZ8oP8iC+pKkUYAyy8Iezpm+GRcfvEAS6saNoZSrAaop+PfPR0Rzssv
6Ho6XPoUwX1WeRVLPR0RLIESwaesCrBi0fV0OPfpGbPOKv9iqaeDLVAi8G9V
gBWLrqfDuU9NgJ5V/sVSTwdboETg3aoALRZdT4dzn5oAPav8i6WeDndBDdxW
BU7FYq0UCZz6FDHsrPq7WCnw1jQEjoMaqK0KvIpFWikSePUpYthZ9XextcBd
0xA4DWqgtyrwKBZxpUjg0aeIUWfV78USBEEQBEEQBEEQBEEQBEEQ/gLnuQqi
Gpqjb0Bz9DlAcxXy5Q5Dyj7+hHLPhYo8vADX5VEcIj0fjQEyVyFf7jCkxOFX
KM6RijzcANvlkRsiPR9rAlV+YZirUCh3aChx2LL3r/73xXLTDoCj5PSmtUfu
svrEIMgcMRZ5aI6SwHZ55Ibov89HaeDKLwxzFfLlDtUlDnve1pHvLE03+fei
3D8/L+bDfQX6/ji6KmDmiK/IQ3OUAbjLIzNEv30+SgNZfmEVMVEud6grcTjy
d8aExkt9zao2oA41D+Us3B/TcdgRxdfOQFszHuaIrMjD1RxVAPh8ZNurkh2i
Dz4fvUZlTcMNZLDG01r6kyKuw9gpaIDkzzbQQRZn4d7Xg3rtLlAYMKvWjBv4
8JCRRR6+5ugRyDmy7VXpxMfmKI2GmgZgrsLzWgySImXH+we2XyD9525qC7LY
S7LvyP3GcnXdEMvFCa1bJZ5V+HLYtWbAw0MGF3n4mqMHQOfItlelF5+aozQa
ahpgHRCwtYoORga8tDpb8mUaLemQisyvQp5+7i3pNwFUdkNs6Z+1Cxx4vPYL
W8xbM5BzhFmRszkyqtsAzxFgOS7mqAstNQ3IXAXMWqVHo5uEfHFD6n6qLR1S
WXR6zw83JBvlarsh1ktTW7cYfkbhj6Vj1ZqB77kYvSJfc1QC8RwBlvOdOarA
U00DNFcBs5YtfU5IqxFSTuGDLKXHBjQPX5ujsAqj1owJPRejV+RrjirBNkeA
5XxyjnJ4mC9krgJsLeuVGaHhX2XWEg4fZLFenhHaVflHNDbXW/ieC8CKXM1R
7YKo5giznC/O0SsgcxWQazmKDo3tM6vm+wXgQRZnadr46GmnjP/JHj47ArMi
zdHQOYIt529zlAYyVwGexrBmbZ+35JEPHkIHWaxZOxbO35PL8MNXMsBnRwBX
pDn6xnJ+NEc5IHMVZqQxnLb8Aps4TROCLA7L7SIbyJ0U3i3sijRHX1jOf+ZI
EARBeM3/ABmugoM=
    "], {{0, 73}, {464, 0}}, {0, 255},
    ColorFunction->RGBColor],
   BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
   Selectable->False],
  DefaultBaseStyle->"ImageGraphics",
  ImageSize->Automatic,
  ImageSizeRaw->{464, 73},
  PlotRange->{{0, 464}, {0, 73}}]], "Output",
 ImageSize->{468, 73},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellTags->{"FeynCalc2FORM", "RasterizedOutput"},
 CellLabel->"Out[1]=",
 CellID->272149842]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"FeynCalc2FORM", "[", 
   RowBox[{"\"\<fc2ftest.f\>\"", ",", 
    RowBox[{"L", " ", "==", "t"}]}], "]"}], ";"}]], "Input",
 CellTags->"FeynCalc2FORM",
 CellLabel->"In[2]:=",
 CellID->404985950],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TableForm", "[", 
  RowBox[{"ReadList", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"$OperatingSystem", "===", "\"\<MacOS\>\""}], ",", "\"\<:\>\"",
        ",", "\"\<\>\""}], "]"}], "<>", "\"\<fc2ftest.f\>\""}], ",", 
    "String"}], "]"}], "]"}]], "Input",
 CellTags->"FeynCalc2FORM",
 CellLabel->"In[3]:=",
 CellID->69651380],

Cell[BoxData[
 FormBox[
  TagBox[
   TagBox[GridBox[{
      {"\<\"Indices \\\\[Mu],\\\\[Nu],\\\\[Rho],\\\\[Sigma];\"\>"},
      {"\<\"Vectors p,q;\"\>"},
      {"\<\"write statistics;\"\>"},
      {"\<\"Local L = ( \"\>"},
      {"\<\"4*d_(mu,si)*d_(nu,ro)*q.p-4*d_(mu,ro)*d_(nu,si)*q.p+4*d_(mu,nu)*d_\
(ro,si)*q.p+\"\>"},
      {"\<\"4*d_(ro,si)*p(nu)*q(mu)-4*d_(nu,si)*p(ro)*q(mu)+4*d_(nu,ro)*p(si)*\
q(mu)-\"\>"},
      {"\<\"4*d_(ro,si)*p(mu)*q(nu)+4*d_(mu,si)*p(ro)*q(nu)-4*d_(mu,ro)*p(si)*\
q(nu)+\"\>"},
      {"\<\"4*d_(nu,si)*p(mu)*q(ro)-4*d_(mu,si)*p(nu)*q(ro)+4*d_(mu,nu)*p(si)*\
q(ro)-\"\>"},
      {"\<\"4*d_(nu,ro)*p(mu)*q(si)+4*d_(mu,ro)*p(nu)*q(si)-4*d_(mu,nu)*p(ro)*\
q(si) ); \"\>"},
      {"\<\"   \"\>"},
      {"\<\"print;\"\>"},
      {"\<\".end\"\>"}
     },
     GridBoxAlignment->{
      "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    Column],
   Function[BoxForm`e$, 
    TableForm[BoxForm`e$]]], TraditionalForm]], "Output",
 ImageSize->{583, 208},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellTags->"FeynCalc2FORM",
 CellLabel->"Out[3]//TableForm="]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"FileNames", "[", "\"\<fc2ftest.f\>\"", "]"}], "=!=", 
     RowBox[{"{", "}"}]}], ",", 
    RowBox[{"DeleteFile", "[", "\"\<fc2ftest.f\>\"", "]"}]}], "]"}], 
  ";"}]], "Input",
 CellTags->"FeynCalc2FORM",
 CellLabel->"In[4]:=",
 CellID->687280976],

Cell[BoxData[
 RowBox[{
  RowBox[{"Clear", "[", "t", "]"}], ";"}]], "Input",
 CellTags->"FeynCalc2FORM",
 CellLabel->"In[5]:=",
 CellID->261285927]
}, Open  ]]
}, Open  ]],

Cell["", "SectionFooterSpacer"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  InterpretationBox[
   StyleBox[
    GraphicsBox[{},
     BaselinePosition->Baseline,
     ImageSize->{6, 0}],
    CacheGraphics->False],
   Spacer[6]]]],
 "See Also"
}], "SeeAlsoSection",
 WholeCellGroupOpener->True,
 CellID->1255426704],

Cell[TextData[StyleBox[ButtonBox["FORM2FeynCalc",
 BaseStyle->"Link",
 ButtonData->"paclet:FeynCalc/ref/FORM2FeynCalc",
 ButtonNote->"FORM2FeynCalc"],
 FontFamily->"Verdana"]], "SeeAlso"]
}, Open  ]],

Cell[" ", "FooterCell"]
},
Saveable->False,
ScreenStyleEnvironment->"Working",
WindowSize->{725, 750},
WindowMargins->{{-10, Automatic}, {Automatic, -8}},
WindowTitle->"FeynCalc2FORM",
TaggingRules->{
 "ModificationHighlight" -> False, "ColorType" -> "SymbolColor", "LinkTrails" -> 
  GridBox[{{
      RowBox[{
        ButtonBox[
        "FeynCalc", ButtonData -> "paclet:FeynCalc/guide/FeynCalc", 
         BaseStyle -> {"Link", "DockedLinkTrail"}]}]}}, ColumnAlignments -> 
    Left], "HasOptions" -> False, "ExampleCounter" -> 1, "NeedPlatMsgIn" -> 
  None, "RootCaptions" -> "", 
  "Metadata" -> {
   "built" -> "{2020, 6, 20, 19, 6, 41.842728}", 
    "history" -> {"9.0", "", "", ""}, "context" -> "FeynCalc`", 
    "keywords" -> {}, "specialkeywords" -> {}, 
    "tutorialcollectionlinks" -> {}, "index" -> True, "label" -> 
    "Feyn Calc Symbol", "language" -> "en", "paclet" -> "FeynCalc", "status" -> 
    "None", "summary" -> 
    "FeynCalc2FORM[exp] displays exp in FORM syntax. FeynCalc2FORM[file, x] \
writes x in FORM syntax to a file. FeynCalc2FORM[file, x == y] writes x = y \
to a file in FORM syntax.", "synonyms" -> {}, "tabletags" -> {}, "title" -> 
    "FeynCalc2FORM", "titlemodifier" -> "", "windowtitle" -> "FeynCalc2FORM", 
    "type" -> "Symbol", "uri" -> "FeynCalc/ref/FeynCalc2FORM"}, 
  "SearchTextTranslated" -> ""},
CellContext->"Global`",
FrontEndVersion->"10.4 for Linux x86 (64-bit) (April 11, 2016)",
StyleDefinitions->Notebook[{
   Cell[
    StyleData[
    StyleDefinitions -> FrontEnd`FileName[{"Wolfram"}, "Reference.nb"]]], 
   Cell[
    StyleData["Input"], CellContext -> "Global`"], 
   Cell[
    StyleData["Output"], CellContext -> "Global`"]}, Visible -> False, 
  FrontEndVersion -> "10.4 for Linux x86 (64-bit) (April 11, 2016)", 
  StyleDefinitions -> "Default.nb"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "FeynCalc2FORM"->{
  Cell[5938, 182, 146, 4, 27, "Input",
   CellTags->"FeynCalc2FORM",
   CellID->1031702605],
  Cell[6087, 188, 1502, 34, 113, "Output",
   CellTags->"FeynCalc2FORM"],
  Cell[8282, 258, 292, 10, 27, "Input",
   CellTags->"FeynCalc2FORM",
   CellID->1451127405],
  Cell[8577, 270, 829, 34, 59, "Output",
   CellTags->"FeynCalc2FORM"],
  Cell[9443, 309, 155, 5, 27, "Input",
   CellTags->"FeynCalc2FORM",
   CellID->208321779],
  Cell[9601, 316, 114, 2, 23, "Print",
   CellTags->"FeynCalc2FORM"],
  Cell[9752, 323, 216, 7, 27, "Input",
   CellTags->"FeynCalc2FORM",
   CellID->14977898],
  Cell[9971, 332, 601, 25, 37, "Output",
   CellTags->"FeynCalc2FORM"],
  Cell[10609, 362, 156, 5, 27, "Input",
   CellTags->"FeynCalc2FORM",
   CellID->1598383483],
  Cell[10768, 369, 112, 2, 23, "Print",
   CellTags->"FeynCalc2FORM"],
  Cell[11047, 382, 231, 7, 27, "Input",
   CellTags->"FeynCalc2FORM",
   CellID->1937829856],
  Cell[11281, 391, 1071, 42, 40, "Output",
   CellTags->"FeynCalc2FORM"],
  Cell[12389, 438, 156, 5, 27, "Input",
   CellTags->"FeynCalc2FORM",
   CellID->1415350890],
  Cell[12548, 445, 126, 2, 23, "Print",
   CellTags->"FeynCalc2FORM"],
  Cell[12711, 452, 317, 10, 27, "Input",
   CellTags->"FeynCalc2FORM",
   CellID->2088847593],
  Cell[13031, 464, 1199, 47, 40, "Output",
   CellTags->"FeynCalc2FORM"],
  Cell[14267, 516, 156, 5, 27, "Input",
   CellTags->"FeynCalc2FORM",
   CellID->1981124799],
  Cell[14426, 523, 126, 2, 23, "Print",
   CellTags->"FeynCalc2FORM"],
  Cell[14709, 535, 346, 11, 27, "Input",
   CellTags->"FeynCalc2FORM",
   CellID->118791271],
  Cell[15080, 550, 351, 11, 45, "Input",
   CellTags->"FeynCalc2FORM",
   CellID->2027596058],
  Cell[15434, 563, 240, 7, 37, "Output",
   CellTags->"FeynCalc2FORM"],
  Cell[15853, 582, 387, 12, 27, "Input",
   CellTags->"FeynCalc2FORM",
   CellID->730601730],
  Cell[16243, 596, 5075, 91, 94, "Output",
   CellTags->{"FeynCalc2FORM", "RasterizedOutput"},
   CellID->272149842],
  Cell[21333, 690, 227, 7, 27, "Input",
   CellTags->"FeynCalc2FORM",
   CellID->404985950],
  Cell[21585, 701, 393, 12, 45, "Input",
   CellTags->"FeynCalc2FORM",
   CellID->69651380],
  Cell[21981, 715, 1450, 39, 244, "Output",
   CellTags->"FeynCalc2FORM"],
  Cell[23446, 757, 331, 11, 27, "Input",
   CellTags->"FeynCalc2FORM",
   CellID->687280976],
  Cell[23780, 770, 147, 5, 27, "Input",
   CellTags->"FeynCalc2FORM",
   CellID->261285927]},
 "PrimaryExamplesSection"->{
  Cell[7650, 229, 387, 15, 31, "PrimaryExamplesSection",
   CellTags->"PrimaryExamplesSection",
   CellID->389305769]},
 "RasterizedOutput"->{
  Cell[16243, 596, 5075, 91, 94, "Output",
   CellTags->{"FeynCalc2FORM", "RasterizedOutput"},
   CellID->272149842]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"FeynCalc2FORM", 26429, 852},
 {"PrimaryExamplesSection", 28870, 926},
 {"RasterizedOutput", 29013, 930}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[585, 21, 3033, 74, 53, "AnchorBarGrid",
 CellID->1],
Cell[3621, 97, 290, 11, 45, "ObjectNameGrid"],
Cell[CellGroupData[{
Cell[3936, 112, 1015, 31, 211, "Usage",
 CellID->2010081510],
Cell[CellGroupData[{
Cell[4976, 147, 738, 24, 31, "NotesSection",
 CellGroupingRules->{"SectionGrouping", 50},
 CellID->771017043],
Cell[5717, 173, 31, 0, 14, "SectionHeaderSpacer"],
Cell[5751, 175, 162, 3, 49, "Notes"],
Cell[CellGroupData[{
Cell[5938, 182, 146, 4, 27, "Input",
 CellTags->"FeynCalc2FORM",
 CellID->1031702605],
Cell[6087, 188, 1502, 34, 113, "Output",
 CellTags->"FeynCalc2FORM"]
}, Open  ]]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[7650, 229, 387, 15, 31, "PrimaryExamplesSection",
 CellTags->"PrimaryExamplesSection",
 CellID->389305769],
Cell[CellGroupData[{
Cell[8062, 248, 195, 6, 26, "ExampleSection",
 CellID->210065479],
Cell[CellGroupData[{
Cell[8282, 258, 292, 10, 27, "Input",
 CellTags->"FeynCalc2FORM",
 CellID->1451127405],
Cell[8577, 270, 829, 34, 59, "Output",
 CellTags->"FeynCalc2FORM"]
}, Open  ]],
Cell[CellGroupData[{
Cell[9443, 309, 155, 5, 27, "Input",
 CellTags->"FeynCalc2FORM",
 CellID->208321779],
Cell[9601, 316, 114, 2, 23, "Print",
 CellTags->"FeynCalc2FORM"]
}, Open  ]],
Cell[CellGroupData[{
Cell[9752, 323, 216, 7, 27, "Input",
 CellTags->"FeynCalc2FORM",
 CellID->14977898],
Cell[9971, 332, 601, 25, 37, "Output",
 CellTags->"FeynCalc2FORM"]
}, Open  ]],
Cell[CellGroupData[{
Cell[10609, 362, 156, 5, 27, "Input",
 CellTags->"FeynCalc2FORM",
 CellID->1598383483],
Cell[10768, 369, 112, 2, 23, "Print",
 CellTags->"FeynCalc2FORM"]
}, Open  ]],
Cell[CellGroupData[{
Cell[10917, 376, 105, 2, 9, "ExampleDelimiter"],
Cell[CellGroupData[{
Cell[11047, 382, 231, 7, 27, "Input",
 CellTags->"FeynCalc2FORM",
 CellID->1937829856],
Cell[11281, 391, 1071, 42, 40, "Output",
 CellTags->"FeynCalc2FORM"]
}, Open  ]],
Cell[CellGroupData[{
Cell[12389, 438, 156, 5, 27, "Input",
 CellTags->"FeynCalc2FORM",
 CellID->1415350890],
Cell[12548, 445, 126, 2, 23, "Print",
 CellTags->"FeynCalc2FORM"]
}, Open  ]],
Cell[CellGroupData[{
Cell[12711, 452, 317, 10, 27, "Input",
 CellTags->"FeynCalc2FORM",
 CellID->2088847593],
Cell[13031, 464, 1199, 47, 40, "Output",
 CellTags->"FeynCalc2FORM"]
}, Open  ]],
Cell[CellGroupData[{
Cell[14267, 516, 156, 5, 27, "Input",
 CellTags->"FeynCalc2FORM",
 CellID->1981124799],
Cell[14426, 523, 126, 2, 23, "Print",
 CellTags->"FeynCalc2FORM"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[14601, 531, 105, 2, 9, "ExampleDelimiter"],
Cell[14709, 535, 346, 11, 27, "Input",
 CellTags->"FeynCalc2FORM",
 CellID->118791271],
Cell[CellGroupData[{
Cell[15080, 550, 351, 11, 45, "Input",
 CellTags->"FeynCalc2FORM",
 CellID->2027596058],
Cell[15434, 563, 240, 7, 37, "Output",
 CellTags->"FeynCalc2FORM"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[15723, 576, 105, 2, 9, "ExampleDelimiter"],
Cell[CellGroupData[{
Cell[15853, 582, 387, 12, 27, "Input",
 CellTags->"FeynCalc2FORM",
 CellID->730601730],
Cell[16243, 596, 5075, 91, 94, "Output",
 CellTags->{"FeynCalc2FORM", "RasterizedOutput"},
 CellID->272149842]
}, Open  ]],
Cell[21333, 690, 227, 7, 27, "Input",
 CellTags->"FeynCalc2FORM",
 CellID->404985950],
Cell[CellGroupData[{
Cell[21585, 701, 393, 12, 45, "Input",
 CellTags->"FeynCalc2FORM",
 CellID->69651380],
Cell[21981, 715, 1450, 39, 244, "Output",
 CellTags->"FeynCalc2FORM"]
}, Open  ]],
Cell[23446, 757, 331, 11, 27, "Input",
 CellTags->"FeynCalc2FORM",
 CellID->687280976],
Cell[23780, 770, 147, 5, 27, "Input",
 CellTags->"FeynCalc2FORM",
 CellID->261285927]
}, Open  ]]
}, Open  ]],
Cell[23954, 779, 31, 0, 29, "SectionFooterSpacer"]
}, Open  ]],
Cell[CellGroupData[{
Cell[24022, 784, 270, 12, 31, "SeeAlsoSection",
 CellID->1255426704],
Cell[24295, 798, 187, 4, 56, "SeeAlso"]
}, Open  ]],
Cell[24497, 805, 23, 0, 41, "FooterCell"]
}
]
*)

(* End of internal cache information *)

